<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2867</cardID>
<listID>4230</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on mouserset the cursor to 128wait 20set the cursor to 129wait 20end mouseron alertplay "flute" tempo 400 "b4h# d5h# b4h#"wait until the sound is "done"end alerton WaldoOptionsIf the visible of bg btn id 219 is false thenlock Screenif the visible of fld id 239 is true then ¬send mouseUp to bg btn id 238show bg btn id 219show bg btn id 220set the checkMark of menuItem 6 of menu Waldo to falsedisable menuItem "HyperButton" of menu Waldohide bg btn id 227exit to HyperCardend ifIf the visible of bg btn id 219 is true thenlock Screenhide bg btn id 219hide bg btn id 220enable menuItem "HyperButton" of menu Waldoset the checkMark of menuItem 6 of menu Waldo to trueexit to HyperCardend ifend WaldoOptionson shNmIf the sharedText of bg fld id 179 is true thenset the sharedText of bg fld id 179 to falsehide cd fld id 116 of cd 1hide cd fld id 118 of cd 1set the checkMark of menuItem 1 of menu Waldo to falseopenCardexit to HyperCardend ifIf the sharedText of bg fld id 179 is false thenset the sharedText of bg fld id 179 to trueshow cd fld id 116 of cd 1show cd fld id 118 of cd 1set the checkMark of menuItem 1 of menu Waldo to trueexit to HyperCardend ifend shNmon SecondSightput the visible of cd btn id 163 of cd 1 into vizSecondSightif vizSecondSight is true thenhide cd btn id 163 of cd 1set the checkMark of menuItem 7 of menu Waldo to trueelseshow cd btn id 163 of cd 1set the checkMark of menuItem 7 of menu Waldo to falseend ifend SecondSighton ChangeTextSize-- If fixed Line height of fld id 66 is true then Text is 9/Monacoif the fixedLineHeight of fld id 66 is true thenlock screenset fixedLineHeight of fld id 66 to falseset fixedLineHeight of fld id 239 to falseset the checkMark of menuItem 3 of menu Waldo to trueset the textSize of fld id 66 to 12set the textSize of fld id 239 to 12set the textSize of cd fld id 43 of cd 1 to 12set the textFont of fld id 66 to the short name of bg fld id 66set the textFont of fld id 239 to the short name of bg fld id 239set the textFont of cd fld id 43 of cd 1 to the short name of bg fld id 66if textFont of cd fld id 43 of cd 1 is "Monaco" thenset the textFont of cd fld id 43 of cd 1 to "Geneva"end ifenable menuItem "Change Text Font" of menu "Waldo"exit to HyperCardend ifif the fixedLineHeight of fld id 66 is false thenlock screenset fixedLineHeight of fld id 66 to trueset fixedLineHeight of fld id 239 to trueset the checkMark of menuItem 3 of menu Waldo to falseset the textSize of fld id 66 to 9set the textSize of fld id 239 to 9set the textFont of fld id 66 to "Monaco"set the textFont of fld id 239 to "Monaco"set the textFont of cd fld id 43 of cd 1 to "Geneva"set the textSize of cd fld id 43 of cd 1 to 10disable menuItem "Change Text Font" of menu "Waldo"exit to HyperCardend ifend ChangeTextSizeon ChangeTextFontif the fixedLineHeight of fld id 66 is false and¬the textFont of fld id 66 ≠ "Monaco" thenplay "harpsichord" tempo 400 "b4h#"set the name of fld id 239 to "Monaco"set the name of fld id 66 to "Monaco"set the textFont of fld id 66 to "Monaco"set the textFont of fld id 239 to "Monaco"set the textFont of cd fld id 43 of cd 1 to "Geneva"set the checkMark of menuItem 4 of menu Waldo to Falseexit to HyperCardend ifif the fixedLineHeight of fld id 66 is false thenask "Enter the Name of a Font in Your System..."&return&¬"(Current Font..."&(the TextFont of fld id 66)&", Size "&¬(the textSize of fld id 66)&")" with (the TextFont of fld id 66)if it is empty then Exit to HyperCardset the name of fld id 66 to itset the name of fld id 239 to itlock screenset the checkMark of menuItem 4 of menu Waldo to trueset the textSize of fld id 66 to 12set the textSize of fld id 239 to 12set the textSize of cd fld id 43 of cd 1 to 12set the textFont of fld id 66 to the short name of bg fld id 66set the textFont of fld id 239 to the short name of bg fld id 239set the textFont of cd fld id 43 of cd 1 to the short name of bg fld id 66if the textFont of fld id 66 = "Monaco" then set the checkMark of menuItem 4 of menu Waldo to Falseexit to HyperCardend ifend ChangeTextFonton SuspendStackif the visible of fld id 243 is true then exit to HyperCardreset menubarshow menubarchoose the browse toolglobal levelMemory, realVolget volume(realVol)put the short name of cd btn id 113 of cd 1 into cd fld id 115 of cd 1put cd fld id 115 of cd 1 into sPLevput the last char of sPlev into nLevget volume(nLev)set the userlevel to levelMemoryunlock screenend SuspendStackon resumeStackset the cursor to watchglobal LEVELMEMORYhide menubarhide msgchoose the browse toolreset menubarput cd fld id 115 of cd 1 into sPLevput the last char of sPlev into nLevset the name of cd btn id 113 of cd 1 to sPLevget volume(nLev)put the userLevel into LEVELMEMORYmakeWaldoMenuset the userLevel to 3end resumeStackon makeWaldoMenuset the userLevel to 5reset menuBardelete menuItem 1 of menu 2if "Waldo" is not in the Menus thencreate Menu "Waldo"put "Show Button Names" after menu Waldo with menuMsg "shNm"put "-" after menu Waldoput "Change Text Size" after menu Waldo with menuMsg "ChangeTextSize"put "Change Text Font" after menu Waldo with menuMsg "ChangeTextFont"put "-" after menu Waldoput "HyperText Functions" after menu Waldo with menuMsg "WaldoOptions"put "Second Sight Functions" after menu Waldo with menuMsg "SecondSight"put "-" after menu Waldoput "HyperButton" after menu Waldo with menuMsg "ShowHyperButton"set the cmdChar of menuItem "HyperButton" of menu "Waldo" to Bput "Import" after menuItem 9 of menu "Go" with menuMsg "ImportPage"set the cmdChar of menuItem "Import" of menu "Go" to I-- fixedLineHeight of bg fld id 66 is false = Large FontIf fixedLineHeight of bg fld id 66 is false thenset the checkMark of menuItem 3 of menu Waldo to trueend ifIf the short name of bg fld id 66 is not "Monaco" thenset the checkMark of menuItem 4 of menu Waldo to trueend ifIf fixedLineHeight of bg fld id 66 is true thenset the checkMark of menuItem "Change Text Size" of menu Waldo to FalseDisable menuItem "Change Text Font" of menu "Waldo"end ifIf the visible of bg btn id 219 is false thenset the checkMark of menuItem "HyperText Functions" of menu Waldo to trueend ifIf the visible of bg btn id 219 is true or the visible ¬of fld id 239 is true thendisable menuItem "HyperButton" of menu Waldoend ifIf the sharedText of bg fld id 179 is true thenset the checkMark of menuItem 1 of menu Waldo to trueend if--vizSecondSightif the visible of cd btn id 163 of cd 1 = false thenset the checkMark of menuItem 7 of menu Waldo to trueend ifget the number of this cdif it is 1 then disable menuItem "HyperButton" of menu Waldodelete menu "Objects"delete menu "Style"delete menu "Tools"repeat 10delete menuitem 6 of menu "Edit"end repeatdelete menuitem "Print Field..." of menu "File"delete menuitem "Print Card" of menu "File"delete menuitem "Print Stack..." of menu "File"delete menuitem 3 of menu "Edit"end ifend makeWaldoMenuon openStackhide MenuBarhide msgset cursor to watchchoose browse toolset the scroll of cd fld id 21 of cd 1 to 2416global realVol, THISSTACK, LEVELMEMORY, cardMenu, outFile, tempF, xLnput the userLevel into LEVELMEMORYset the userLevel to 5put volume() into realVolput cd fld id 115 of cd 1 into sPLevset the name of cd btn id 113 of cd 1 to sPLevput the last char of sPlev into nLevif last char of sPlev = 0 then set the icon of cd btn id 114 of cd 1 to "SpeakerLevel"get volume(nLev)makeWaldoMenuset the name of cd btn id 96 of cd 1 to the short name of this stackhide msgput 1 into xLnput the script of fld id 177 into tempFput cd fld id 95 of cd 1 into outFileput 0 into cardMenuset the userLevel to 3hide cd btn id 66 of cd 1---FIND OPTION btnshide bg btn id 57hide bg btn id 58hide bg btn id 56hide bg btn id 12show bg btn id 55show bg btn id 11set the loc of msg to 19,303if the version < 2.0 thenanswer "Sorry, you need Hypercard 2.0 for this stack."go homeend ifset the scroll of card field ID 21 of cd 1 to 0set cursor to browse toolset userlevel to 3get number of this cdend openStackon StartUphide menuBarend StartUpon closeStackglobal levelMemory, realVolget volume(realVol)reset menubarput (the short name of cd btn id 113 of cd 1) into cd fld id 115 of cd 1set the scroll of cd fld id 21 of cd 1 to 0set the userlevel to levelMemoryshow menuBarend closeStack</script>
